20 POKE53265,11:FORK=828TO875:READA:POKEK,A:NEXT:POKE785,60:POKE786,3:POKE788,52 30 DATA165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224,176 40 DATA3,169,49,44,169,52,120,133,1,160,,177,20,168,104,133,1,88,104,133,21,104 50 DATA133,20,76,162,179 100 FORK=13*4096TO14*4096-1:POKEK+4096,USR(K):NEXT:POKE53272,24:POKE56576,148:POKE648,196 230 CG=58368:P=36:FORK=CGTOCG+8*P-1:READA:POKEK,A:NEXT 240 DATA 227,127,156,197,127,156,227,127,231, 25,254,231, 25,254,231, 25 260 DATA 156,227,127,156,227,127,156,227,254,231, 25,254,231, 25,254,231 280 DATA 187,119,238,221,187,119,238,221, 1, 3, 6, 12, 31, 63,127,255 300 DATA ,128,192, 96,240,248,252,254,127,127, 70, 70, 70, 71, 71, 71 320 DATA 252,252,100,100,100,252,252,252,160,224,224,160,224,160,224,160 340 DATA 10, 14, 14, 10, 14, 10, 14, 10,234,255,255,254,252,252,252,252 360 DATA 174,254,254,126, 62, 62, 62, 62, 1, 3, 3, 7, 15, 15, 31, 31 380 DATA , ,128,192,128,224,240,240, 63, 31,127, 63, 15, 3, 3, 3 400 DATA 248,240,252,248,224, , , , 13, 15, 31, 15, 9, 9, 9, 15 420 DATA 176,240,248,240,144,144,144,240, 15, 15, 31, 62, 60, 60, 60, 60 440 DATA 240,240,248,124, 60, 60, 60, 60,255,255,255,255,255,255,255,255 460 DATA , 64, 4, , 32, 2, , 8, 3, 15, 3, 3, 1, 31, 23, 23 480 DATA 128,226,130,130, 2,242,210,210, 31, 7, 3, 7, 6, 6, 6, 30 500 DATA 222,194,130,194,194,194,194,242, 1, 7, 4, 71, 99, 49, 31, 1 520 DATA 192,240,144,241, 99,198,252,192, 71,125, 1, 7, 28,112, , 540 DATA 241,223,192,240,156,135,128, ,255,255,255,255,254,252,248,252 560 DATA 255,255,255,255,207, 7, 3, 3,248,240,240,224,240,240,224,224 580 DATA , , , , , , , , 3, 1, 3, 3, 1, 1, 1, 600 FORK=0TO62:READA:POKEK+49152,A:NEXT 610 DATA 255,255,192,128,,64,128,,64 620 DATA 128,,64,128,,64,128,,64 630 DATA 128,,64,128,,64,128,,64 640 DATA 128,,64,128,,64,128,,64 650 DATA 128,,64,128,,64,128,,64 660 DATA 128,,64,128,,64,255,255,192 670 DATA ,,,,,,,, 990 VC=53248:POKE51192,0:POKEVC+1,97:POKEVC,71:POKEVC+21,0 1000 DIMA$(12),B$(12) 1010 A$(0)="@A[157][157]BC[146][145]":B$(0)=" > MEER < " 1020 A$(8)="[154]DD[157][157]DD[146][145]":B$(8)=" > FLUSS < " 1030 A$(9)="[149]EF[157][157]GH[146][145]":B$(9)=" > SIEDLUNG < " 1040 A$(1)="[152]IJ[157][157]KL[146][145]":B$(1)=" > BURG < " 1050 A$(4)="MN[157][157]OP[146][145]":B$(4)=" > WALD < " 1060 A$(5)="[144]QR[157][157]ST[146][145]" 1070 A$(6)="[151]UU[157][157]UU[146][145]" 1080 A$(7)="[149]VV[157][157]VV[146][145]":B$(7)=" > EBENE < " 1085 A$(2)=A$(1):A$(3)=A$(1):B$(2)=B$(1):B$(3)=B$(1) 1086 A$(11)="[144][213][201][157][157][202][203][145]":B$(11)=" > BOJE < " 1087 A$(12)=A$(0):B$(12)=B$(0) 1090 A$(10)="[151]_ [157][157]!#[146][145]":B$(10)=" > HOEHLE < " 1091 A$="[144]WX[157][157]YZ[146][145]":B$="[144][\[157][157]]^[146][145]" 1092 C$="ZUG NICHT MOEGLICH" 1093 D$=" " 1094 F$="[144]DU WIRST VON JAEGERN" 1095 H$="DES DAEMONS ATTACKIERT" 1096 I$="DES DAEMONS UMZINGELT." 1100 DIML(30+2*4,30+2*4) 1110 FORK=10TO32:FORI=10TO30:READA:L(K,I)=A:NEXT:NEXT 1120 DATA ,,,,,,,7,7,7,,,,,,,,,,, 1130 DATA ,,,,,7,7,7,1,7,7,7,7,,,,,,,, 1140 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,,,,, 1150 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,7,,,, 1160 DATA ,,7,4,4,4,7,7,7,7,7,7,7,7,8,7,7,7,7,, 1170 DATA ,7,7,7,4,4,4,7,7,4,4,4,7,7,8,9,7,7,7,, 1180 DATA ,8,8,4,4,4,7,7,4,4,4,4,4,7,8,7,7,7,7,, 1190 DATA ,7,8,8,4,7,7,4,4,4,6,6,8,8,8,7,7,7,7,, 1200 DATA 7,7,9,8,7,7,7,4,4,10,6,6,4,4,4,7,7,7,7,7, 1210 DATA 7,7,7,8,7,7,7,4,6,6,6,6,6,4,4,7,7,7,7,7, 1220 DATA ,7,7,8,8,8,8,8,6,6,5,6,6,4,4,4,7,7,7,7, 1230 DATA ,7,7,7,7,7,7,4,4,6,6,6,4,4,7,7,7,7,7,7,7 1240 DATA ,,,7,7,7,7,7,4,4,4,8,8,8,7,7,7,7,7,2,7 1250 DATA ,,,7,7,7,7,7,7,4,4,4,4,8,7,7,7,7,4,4,7 1260 DATA ,,,7,4,4,7,7,7,7,7,7,7,8,7,7,7,4,4,4, 1270 DATA ,,7,7,4,4,4,7,7,7,7,7,9,8,4,4,4,4,4,4, 1280 DATA ,,7,7,9,4,4,7,7,8,8,8,8,8,4,4,4,4,4,, 1290 DATA ,7,7,7,4,4,4,7,8,8,7,7,7,7,7,7,4,4,4,, 1300 DATA ,7,7,4,4,4,4,4,8,7,7,7,7,7,7,7,4,,,, 1310 DATA ,,4,4,4,4,4,,,,,7,7,7,7,7,7,,,, 1320 DATA ,,4,4,4,4,,,,,,,,,,,,,,, 1330 DATA ,,4,3,4,,,,,,,,,,,,,,,, 1340 DATA ,,4,4,4,,,,,,,,,,,,,,,, 1350 FORK=0TO12:L(22,K)=12:NEXT:L(22,33)=11 1400 DIMC$(7),D$(7) 1410 FORK=0TO7:READG$:C$(K)=G$:NEXT 1420 FORK=0TO7:READG$:D$(K)=G$:NEXT 1430 DATA BOOT,RUESTUNG,LANZE,SCHWERT,HARPUNE,KOMPASS,LEITER,BUCH 1440 DATA SWIM,BEEM,KILL,HELP,FILL,KLAU,ANTI,BOMB 1500 DIMH(17,12) 1510 FORK=0TO17:FORI=0TO12:READA:H(K,I)=A:NEXT:NEXT 1520 DATA 80,48,48,48,48,48,48,48,48,48,48,48,40 1530 DATA 24,40,24,48,48,48,48,56,48,48,48,32,12 1540 DATA 28,44,12,24,48,48,40,12,24,48,48,40,12 1550 DATA 28,44,12,12,16,48,36,12,12,24,40,12,12 1560 DATA 28,44,12,20,48,48,48,36,12,12,20,36,12 1570 DATA 28,44,28,48,48,48,48,48,36,20,48,48,36 1580 DATA 28,44,12,24,48,48,48,56,56,48,48,48,40 1590 DATA 28,44,12,12,24,48,40,12,12,24,48,48,36 1600 DATA 28,44,12,12,12, 8,12,12,12,20,48,48,40 1610 DATA 20,44,20,36,12,12,12,12,20,40,24,40,12 1620 DATA 24,52,32,24,36,12,12,12,24,62,36,12,12 1630 DATA 20,48,40,12,24,52,36,12,12,12,24,52,36 1640 DATA 24,48,36,12,12,24,48,36,12,12,20,48,40 1650 DATA 20,48,40,12,12,12,24,48,36,12,24,48,36 1660 DATA 24,48,36,12,12,12,12,16,40,12,20,48,40 1670 DATA 20,48,40,12,12,12,20,48,36,12,24,40,12 1680 DATA 24,48,36,12, 4,20,48,48,48,36,12,12,12 1690 DATA 20,48,48,52,48,48,48,48,48,48,36,20,36 2000 POKE53281,15:POKE53280,14 2010 PRINTCHR$(8);CHR$(14);CHR$(147);" [196][201][197] [204][197][199][197][206][196][197]:" 2020 PRINT" [197]S GESCHAH VOR SEHR LANGER [218]EIT IN" 2030 PRINT" EINEM KLEINEN [204]AND, DASS [196]REISTROMLAND" 2040 PRINT" GENANNT WURDE. [196]A RISS EIN BOESER" 2050 PRINT" [196]AEMON DIE [205]ACHT AN SICH,INDEM ER DIE" 2060 PRINT" DREI [198]LUESSE, DIE ZUVOR DAS [204]AND GE-" 2070 PRINT" RECHT REGIERT HATTEN, MIT [200]ILFE VON" 2080 PRINT" DREI GRAUSAMEN [210]INGEN UNTERJOCHTE." 2090 PRINT" [196]IE [205]ACHT DER [210]INGE KANN NUR GEBROCHEN" 2100 PRINT" WERDEN, WENN SIE IN DIE [200]AENDE DER " 2110 PRINT" [198]LUESSE KOMMEN. [213]ND ERST WENN DIES GE-" 2120 PRINT" SCHEHEN IST, KANN DER [196]AEMON MIT [200]ILFE" 2130 PRINT" DER DREI [198]LUESSE VERTRIEBEN WERDEN." 2140 PRINT" [196]ENN NUR DURCH DAS [215]ASSER DER [198]LUESSE" 2150 PRINT" KANN DER [196]AEMON WEHRLOS UND NUR DURCH" 2160 PRINT" DAS [215]ASSER DES [205]EERES UNSCHAEDLICH GE-" 2170 PRINT" MACHT GEMACHT WERDEN." 2180 PRINT" [215]EITER HEISST ES, DASS DERJENIGE, DER" 2190 PRINT" DIES VOLLBRINGT, AUFS REICHSTE BELOHNT" 2200 PRINT" WERDEN WUERDE, DENN ER HAETTE DAS [214]OLK" 2210 PRINT" BEFREIT. [197]S HEISST DER [204]OHN BESTAENDE" 2220 PRINT" AUS ETWAS UNENDLICH [203]OSTBAREN AUS SEHR" 2230 PRINT" FERNEN UND NOCH IMMER GEHEIMNISUM-" 2240 PRINT" WOBENEN [199]EGENDEN DER [197]RDE. - [211]O LAUTET" 2250 PRINT" [196][201][197] [204][197][199][197][206][196][197]. >>";:POKE53265,27 2260 POKE 198,0:WAIT 198,1:GET G$:POKE53265,11 2270 PRINT"[147] [196]AS [193]DVENTURE-[199]AME [144][196] [193] [210] [203] [212] [207] [215] [197] [210] " 2280 PRINT" VON [210]OBERT [214]ALENTINER BAUT AUF DIESE " 2290 PRINT" [204]EGENDE AUF. [218]IEL DES [211]PIELS IST ES " 2300 PRINT" DEMNACH DEN [196]AEMON ZU VERTREIBEN UND " 2310 PRINT" DAS [196]REISTROMLAND ZU BEFREIEN. [196]AZU " 2320 PRINT" VERSTEHT DER [195]OMPUTER VERSCHIEDENE [194]E- " 2330 PRINT" FEHLE,DIE IM FOLGENDEN ERKLAERT WERDEN " 2340 PRINT" [204][201][211][212] - [199]IBT EINE [213]EBERSICHT UEBER" 2345 PRINT" [200]AB UND [199]UT. [211]TOPT DIE [218]EIT" 2350 PRINT" [211][193][214][197] - [211]PEICHERT BISHERIGE [197]RFOLGE" 2355 PRINT" ODER [205]ISERFOLGE AUF [194]AND/[196]ISK." 2360 PRINT" [197][201][206][212][210][197][212][197][206] - [196]U BETRITTST EINE [194]URG,..."; 2370 PRINT" [215][197][199][215][197][210][198][197][206],[216][217] - [215]EGWERFEN DES [199]EGEN-" 2380 PRINT" STANDES [216][217]." 2390 PRINT" [201][211][211] - [211]TAERKT DICH SOLANGE DU NOCH" 2395 PRINT" [214]ERPFLEGUNG HAST." 2400 PRINT" >>"; 2405 POKE53265,27:POKE198,0:WAIT198,1:GETG$:POKE53265,11 2410 PRINT"[147]"; 2420 PRINT" [198][213][197][204][204][197],[216][217] - [198]UELLT DEN [199]EGENSTAND [216][217]" 2430 PRINT" M. [215]ASSER,FALLS VORHANDEN" 2440 PRINT" [204][201][197][211],[216][217] - [196]U LIEST Z.[194]. EIN [194]UCH." 2450 PRINT" [193][206][199][210][197][201][198][197][206] - [196]U GREIFST AN." 2460 PRINT" [193][194][215][197][200][210][197][206] - [196]U VERTEIDIGST DICH." 2470 PRINT" [200]-[210]-[206]-[211]-[215]-[207] FUER D. [210]ICHTUNGSANGABEN " 2471 PRINT"[199]ESAGT SEI NOCH, DASS [211][193][214][197] NUR AUSSER-" 2472 PRINT"HALB VON [194]URGEN, [211]IEDLUNGEN , ... VER-" 2473 PRINT"WENDET WERDEN KANN.[144][212][201][208]: [211]UCHE DIE [210]INGE" 2474 PRINT" HINTER [205]AUERN ...!" 2480 PRINT"[215]AEHREND DU SPIELST SIEHST DU LINKS OBEN"; 2490 PRINT"DEN [193]USSCHNITT DES [196]REISTROMLANDES, IN"; 2500 PRINT"DEM DU DICH GERADE BEFINDEST. [196]ER WEISSE"; 2510 PRINT"[210]AHMEN ZEIGT DEINE GENAUE [208]OSITION.[206]EBEN"; 2520 PRINT"DEM [204]ANDSCHAFTSAUSSCHNITT FINDEST DU DIE"; 2530 PRINT"[193]NZEIGE FUER [214]ERPFLEGUNGSEINHEITEN,[203]RAFT"; 2540 PRINT"[199]OLDSTUECKE UND [193]NZAHL DER [210]INGE, DIE DU"; 2550 PRINT"BEREITS ERBEUTET HAST.[196]ARUNTER UND UNTER"; 2560 PRINT"DER [197]INGABEZEILE BEFINDET SICH JE EIN"; 2570 PRINT"[193]USGABEFENSTER ZUR [193]USGABE VON [196]ATEN." 2580 PRINT"[193]LTES ODER NEUES [211]PIEL (A/N)?-";:POKE53265,27 2590 POKE198,0:WAIT198,1:GETG$:IFG$<>"A"ANDG$<>"N"THEN2590 2600 PRINTG$;:IFG$="N"THEN3000 2605 GOSUB2610:GOTO2680 2610 PRINTCHR$(14);"[147] [203]ASSETTE ODER [196]ISKETTE ?-"; 2620 GETTT$:IFTT$<>"K"ANDTT$<>"D"THEN2620 2630 PRINTCHR$(ASC(TT$)+32):PRINT 2640 PRINT" [198]ILENAME: [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:K$="" 2645 FORK=1TO16:POKE198,0:WAIT198,1:GETG$ 2650 IFG$=CHR$(13)THENK=16:NEXT:PRINT"":RETURN 2660 IF(G$<"A"ORG$>"Z")AND(G$<"[193]"ORG$>"[218]")ANDG$<>" "THENK=K-1:NEXT 2670 K$=K$+G$:PRINTG$;:NEXT:PRINT"":RETURN 2680 IFTT$="K"THENOPEN1,1,0,K$ 2685 IFTT$="D"THENK$=K$+",S,R":OPEN1,8,2,K$ 2690 INPUT#1,X:INPUT#1,Y:INPUT#1,VE:INPUT#1,KR:INPUT#1,GE:INPUT#1,RI:INPUT#1,IR 2700 INPUT#1,T$:INPUT#1,ZB:INPUT#1,HB:INPUT#1,HA:INPUT#1,EI:INPUT#1,FO 2710 INPUT#1,AU:INPUT#1,LO:INPUT#1,AN:INPUT#1,BE:INPUT#1,G$ 2715 CLOSE1:IFTT$="K"THEN2720 2717 OPEN15,8,15:INPUT#15,A,G$,K,K:CLOSE15:IFA<>0THEN2605 2718 GOTO2800 2720 PRINT"[200]ABE ";CHR$(34);G$;CHR$(34);" GEFUNDEN." 2730 PRINT"[215]ILLST DU DIESES [211]PIEL FORTSETZEN ([202]/[206])?" 2740 GETG$:IFG$<>"N"ANDG$<>"J"THEN2740 2750 IFG$="N"THEN2605 2800 TI$=T$:E$="[147]"+CHR$(142):GOTO20000 3000 X=17:Y=15:VE=3500:KR=100:GE=0:RI=0:TI$="000000":E$="[147]"+CHR$(142):GOTO20000 3500 IFPX=-1THENP=1:GOTO3520 3510 P=H(PY,PX) 3520 R$="RICHTUNGEN":POKEVC+17,11:GOSUB3530:GOTO3760 3530 PRINT"[147]":FORK=2TO5:PRINTTAB(K)"[144][205]"SPC(35-2*K)"[206]":NEXT 3540 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 3550 FORK=1TO8:PRINT" [165]"SPC(23)"[167]":NEXT 3560 PRINT" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 3570 FORK=5TO2STEP-1:PRINTTAB(K)"[206]"SPC(35-2*K)"[205]":NEXT:IF(PAND8)=8THENR$=R$+"-S" 3580 IF(PAND4)<>4THEN3620 3590 R$=R$+"-N":PRINT""," [175][175][175][175][175][175][175]":PRINT," [167][205][175][175][175][175][175][206][165]" 3600 FORK=1TO6:PRINT,"[167][167] [165][165]":NEXT:PRINT,"[186][206] [205][204]" 3610 POKE214,10:PRINT:PRINT,"[175][175][175][175][175]" 3620 IF(PAND32)<>32THEN3660 3630 R$=R$+"-W":PRINT" [167][205] ":PRINT" [167] [205]" 3640 PRINT" [167][183][208]":FORK=1TO9:PRINT" [167] [167]":NEXT 3650 PRINT" [167][175][186]":PRINT" [167] ":PRINT" [167] ":PRINT" [206]" 3660 IF(PAND16)<>16THEN3700 3670 R$=R$+"-O":PRINT"",,,"[206][165]":PRINT,,,"[206] [165]" 3680 PRINT,,,"[207][183][165]":FORK=1TO9:PRINT,,,"[165] [165]":NEXT:PRINT,,," [205][204][175][165]" 3690 PRINT,,," [165]":PRINT,,," [165][157][205]" 3700 IF(PAND2)<>2THEN3730 3710 R$=R$+"-H":PRINT"":PRINT,,"[157][157][175][175][175][175][175][175][175][175]":PRINT,,"[157][157][205][205][221][175][175][221][206][206]" 3720 PRINT,,"[157][205][171][192][192][179][206]":FORK=1TO7:PRINT,,"[221][221]":PRINT,,"[171][192][192][179]":NEXT 3730 IF(PAND1)<>1THEN3755 3740 R$=R$+"-R":POKE214,15:PRINT:PRINT,," [204][175][186]":PRINT,," [204][175][186]":PRINT,,"[206][165] [167][205]" 3750 PRINT,,"[157][206][206][207][183][208][205][205]":PRINT,,"[157][183][183][183][183][183][183][183]" 3755 RETURN 3760 F=20:IF(PAND64)<>64THEN3800 3770 F=21:POKE214,15:PRINT:PRINT," [175][175][175][175]":PRINT,"[206] [206]":PRINT,"[157][206] [206][206]" 3780 PRINT,"[157][157][206][175][175][175][206][206]":PRINT,"[157][157][157][170] ==([206]":PRINT,"[157][157][183][183][183][183]" 3790 R$=R$+";-LIES,BUCH" 3800 POKE214,F:PRINT:PRINTR$ 3810 POKEVC+17,27:GOSUB20410:PRINT"[145][145][145][145][145]" 3850 IFK$="N"AND(PAND4)=4THENPY=PY-1:GOTO 3500 3860 IFK$="S"AND(PAND8)=8THENPY=PY+1:GOTO 3500 3870 IFK$="O"AND(PAND16)=16THENPX=PX+1:GOTO 3500 3880 IFK$="W"AND(PAND32)=32THENPX=PX-1:GOTO4000 3890 IFK$="R"AND(PAND1)=1THENPY=10:PX=9:GOTO 3500 3900 IFK$="H"AND(PAND2)=2THENPX=-1:GOTO 3500 3910 IFK$<>"LIES,BUCH"THEN4020 3920 IF(PAND64)<>64THENK$="":GOTO3910 3930 ZB=255:PRINT"[147] DAS BUCH DES MAGIERS:" 3940 PRINT" SWIM-FAEHIKEIT ZU SCWIMMEN" 3942 PRINT" BEEM-ZUFAELLIGER STANDORTWECHSEL" 3943 PRINT" KILL-TOETET JEDEN IN SICHTWEITE" 3944 PRINT" HELP-GESPRAECHSPARTNER W. HILFSBEREIT" 3945 PRINT" FILL-FUELT EINEN RAUM MIT BETON AUS" 3946 PRINT" KLAU-BEWIRKT EINEN DIEBSTAL" 3947 PRINT" ANTI-VERWANDELT ZU STEIN" 3948 PRINT" BOMB-LAESST EXPLODIEREN" 3950 PRINT" DOCH DENK DARAN: BENUTZE SIE NUR UM" 3960 PRINT" GUTES ZU TUN !!!" 3970 FORK=1TO30000:NEXT 3980 H(0,0)=H(0,0)-64:PRINT" DAS BUCH LOEST SICH LANGSAM AUF..." 3990 FORK=1TO4000:NEXT:GOTO3500 4000 IFPX<>0ORPY<>0THEN3500 4005 PRINT:PRINT" DU KOMMST IN DEN RAUM DES MAGIERS, ALS DIESER PLOETZLICH"; 4007 PRINT" VERSCHWINDET..."; 4010 FORK=1TO5000:NEXT:GOTO3500 4020 FORK=0TO7:IFK$<>D$(K)ORZB<>255THENNEXT:GOSUB40360:GOTO3500 4030 IFK=0ORK=1ORK=4THEN4100 4040 POKEVC+21,0:PRINT"[147][144] DU HAST EINEN SPRUCH DES HASSES BE-" 4050 PRINT" NUTZT. DU BIST DES TODES! DER MEISTER" 4060 PRINT" PERSOENLICH WIRD DICH RICHTEN..." 4070 FORK=1TO6000:NEXT:GOTO40000 4100 IFK=1THEN4200 4110 PRINT" DER SPRUCH ZEIGT KEINE WIRKUNG !!!";:FORK=1TO2000:NEXT:GOTO3500 4200 X=INT(30*RND(0))+8:Y=INT(30*RND(0))+8 4220 IFL(Y,X)<>4ANDL(Y,X)<>7THEN4200 20000 YY=Y:XX=X:IFKR<0THENKR=0 20010 PRINT"";E$;:E$="" 20020 FORK=Y-3TOY+3 20030 FORI=X-3TOX+3 20040 PRINTA$(L(K,I)); 20050 NEXT:PRINT:PRINT:NEXT:PRINTB$(L(Y,X)):POKEVC+21,1 20060 PRINT"[154]";:FORK=1TO15:PRINTTAB(16);"[221]":NEXT:PRINT""; 20070 PRINTTAB(18);"VERPFLEGUNG :";VE;"[157] " 20080 PRINTTAB(18);"KRAFT IN % :";KR;"[157] " 20090 PRINTTAB(18);"GOLD :";GE;"[157] " 20100 PRINTTAB(18);"RINGE :";RI:PRINT 20300 IFRND(0)>(.1+AN)ORAT=1THEN20400 20310 AT=1:PRINTF$:IFRND(0)>.7THENU=1:PRINTI$:GOTO20320 20315 PRINTH$ 20320 IFL(Y,X)<>8ANDL(Y,X)<>0ANDL(Y,X)<>11ANDL(Y,X)<>12THENJ$=A$:GOTO20400 20330 J$=B$ 20400 IFAT=1THENPRINTJ$ 20402 PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"; 20404 IFKR=0THEN40000 20406 IFTC=1THEN26100 20408 GOSUB20410:GOTO20420 20410 PRINT"KOMMANDO : [145][164][157]";:K$="" 20412 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THENPRINT" [144]":RETURN 20414 IFASC(G$)=20ANDLEN(K$)>0THENK$=LEFT$(K$,LEN(K$)-1):PRINT" [157][157] [157][164][157]";:GOTO20412 20416 IF(ASC(G$)<65ORASC(G$)>90)ANDASC(G$)<>44THEN20412 20417 IFLEN(K$)>20THEN20412 20418 PRINTG$;"[164][157]";:K$=K$+G$:GOTO20412 20420 IFK$<>"N"ANDK$<>"S"ANDK$<>"W"ANDK$<>"O"THEN20600 20425 IFU=1THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 20430 KR=KR-2-HA:IFK$="N"ANDY>4THENY=Y-1:GOTO20500 20440 IFK$="S"ANDY<35THENY=Y+1:GOTO20500 20450 IFK$="W"ANDX>4THENX=X-1:GOTO20500 20460 IFK$="O"ANDX<35THENX=X+1:GOTO20500 20470 PRINT" DEIN BOOT IST NICHT HOCHSEETAUGLICH ! [144]DU BIST ERTRUNKEN." 20480 GOTO40000 20500 L=L(Y,X):IFL<>0ANDEB=0ANDL<>11ANDL<>12THENBE=0 20510 IFL=0AND(HBAND1)=0THENPRINT"[144] DU BIST ERTRUNKEN.":GOTO40000 20520 IFL=8AND(ZBAND1)=0THEN30000 20530 IFL=6THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:Y=YY:X=XX:KR=KR-8:GOTO20000 20540 AN=0:IFL=4THENAN=.15 20550 IFL<>11THEN 20560 20553 IF BE=0 THENBE=1:GOTO 20000 20556 IF BE=2 THENBE=3:EB=1:GOTO 20000 20560 IF L=12 AND BE=1 THEN BE=2:GOTO20000 20590 GOTO 20000 20600 IFK$=""THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 20605 IFAT=1THEN23000 20610 IFK$<>"LIST"THEN20700 20620 PRINT"":E$="[147]":T$=TI$:FORK=0TO7:IF(HBAND2^K)THENPRINTTAB(18);C$(K) 20625 NEXT:IFEI=1THENPRINTTAB(18);"EIMER" 20630 PRINT"":FORK=0TO7:IF(ZBAND2^K)THENPRINTTAB(32);D$(K) 20635 NEXT:PRINT"DRUECKE EINE TASTE" 20660 POKE198,0:WAIT198,1:TI$=T$:GOTO20000 20700 IFK$<>"ISS"THEN20800 20710 A=KR:KR=KR-1:VE=VE+31:FORK=ATO100:VE=VE-31 20720 IFVE<=0THENK=100:VE=VE+31:NEXT:GOTO20000 20730 KR=KR+1:NEXT:GOTO20000 20800 IFK$<>"EINTRETEN"THEN22000 20805 IFL(Y,X)=10THEN21100 20810 IFL(Y,X)<>9AND(L(Y,X)>3ORL(Y,X)=0)THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 20820 IFL(Y,X)<>9THEN21300 20822 IFGE<20THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 20824 IFY=11ANDX=18THEN40500 20830 POKEVC+21,0:E$="[147]":PRINT"[147] DIE SIEDLER HEISSEN DICH HERZLICHST" 20840 PRINT" WILLKOMMEN UND BIETEN DIR FOLGENDES AN" 20850 PRINT" JE 20 GOLDSTUECKE FUER:[145]" 20860 F=0:IFL(Y,X+1)=4THENPRINTTAB(24);C$(0):F=1 20865 IFL(Y,X-1)=8THENPRINTTAB(24);"EIMER":F=2 20870 FORK=1TO7:PRINTTAB(24);C$(K):NEXT:PRINTTAB(24);"VERPFLEGUNG*1500" 20880 PRINT" DU HAST";GE;"GOLDSTUECKE.":PRINT" WAS WUENSCHST DU ?-";:K$="" 20890 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THEN20920 20900 K=ASC(G$):IFK<65ORK>90THEN20890 20910 K$=K$+G$:PRINTG$;:GOTO20890 20920 IFK$=""THENGOTO20000 20925 IFK$="EIMER"ANDF=2THENEI=1:HA=HA+1:GE=GE-20:GOTO20000 20930 IFK$=C$(0)ANDF=0THEN20830 20940 FORK=0TO7:IFK$=C$(K)THENK=7:NEXT:GOTO21030 20950 NEXT:IFLEFT$(K$,3)<>"VER"THEN21030 20960 PRINT:PRINT" WIEVIEL ?-";:K$="" 20970 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THEN21010 20980 IFVAL(G$)=0ANDG$<>"0"THEN20970 20990 K$=K$+G$:PRINTG$;:GOTO20970 21010 F=VAL(K$):FORK=1TOF:IFGE-20>-1THENVE=VE+1500:GE=GE-20:NEXT:GOTO20000 21020 K=F+1:NEXT:GOTO20000 21030 F=8:FORK=0TO7:IFK$=C$(K)THENF=K:K=8 21040 NEXT:IFF=8OR(HBAND2^F)THEN20830 21050 GE=GE-20:HA=HA+1:HB=HB+2^F:GOSUB40400:GOTO20000 21100 IFT=1THEN25000 21110 POKEVC+21,0:PRINT"[147] [144]DU HAST DIE HOEHLE DES M A G I E R S " 21120 PRINT" BETRETEN,-EINES DIENERS DES DAEMONS !! " 21130 PRINT" ES GIBT KEIN ZURUECK, DENN IN DIESEM " 21140 PRINT" AUGENBLICK SCHLIESST SICH DIE HOHLE. " 21150 PRINT" ES GIBT NUR EINEN AUSWEG:" 21160 PRINT" -EIN SCHMALER SCHACHT IM BODEN.":FORK=1TO8000:NEXT 21170 IFHBAND64THENH(0,0)=80:PX=-1:E$="[147]":GOTO3500 21180 PRINT" DA DU KEINE! LEITER MITGEBRACHT HAST " 21190 PRINT" LAUTET DEIN URTEIL:" 21200 PRINT" -TOD DURCH STURZ AUS 20 METERN HOEHE " 21210 PRINT" ODER" 21220 PRINT" -TOD DURCH VERDURSTEN.":GOTO40000 21300 E$="[147]":L=L(Y,X)-1:IF(IRAND2^L)THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 21315 IF(LOAND2^L)=2^LTHEN21800 21320 IF(AUAND2^L)=2^LTHEN21700 21330 E$="":IFL<>0THEN21400 21340 PRINT" DER KOENIG ERTEILT DIR DIE AUFGABE,DIE" 21350 PRINT" ERDE ZU ERFORSCHEN.":FORK=1TO6000:NEXT 21360 PRINT"[145][145] DU SOLLST MIT EINEM BOOT WEIT WEG " 21370 PRINT" FAHREN UND BERICHTEN WAS DU SIEHST. ":FORK=1TO6000:NEXT 21380 PRINT"[145][145] ALS EINZIGES HILFSMITTEL GIBT DIR DER " 21385 PRINT" KOENIG EINE LEITER MIT !!! ":HB=HB+64:HA=HA+1:FORK=1TO6000:NEXT 21390 PRINT"[145][145] " 21395 PRINT" ":AU=AU+1:LO=LO+1:GOTO20000 21400 IFL<>1THEN21460 21405 PRINT" ICH KOENIG DER PTOLEMAEEN GEBE DIR DIE" 21410 PRINT" AUFGABE,DIE INSEL EINMAL AUF DEM SEE-":FORK=1TO6000:NEXT 21420 PRINT"[145][145] WEG ZU UMRUNDEN. STARTE BEI DER BOJE " 21430 PRINT" VOR DER KUESTE. VIEL GLUECK ! ":FORK=1TO6000:NEXT 21440 PRINT"[145][145] " 21450 PRINT" ":AU=AU+2:LO=LO+2:GOTO 20000 21460 PRINT" DER KOENIG WEIGERT SICH DIR DEN RING" 21470 PRINT" FUER EINE AUFGABE ZU UEBERLASSEN":FORK=1TO6000:NEXT 21480 PRINT"[145][145] ER GIBT DIR EINE MOEGLICHKEIT, DICH ZU" 21490 PRINT" RECHTFERTIGEN U. DADURCH ZU UEBERLEBEN":FORK=1TO6000:NEXT 21500 PRINT"[145][145] " 21510 PRINT" " 21520 PRINT"[145][145] DU SAGST: ";:K$="" 21530 FORK=1TO4 21540 POKE198,0:WAIT198,1:GETG$:IFASC(G$)<65ORASC(G$)>90THEN21540 21545 K$=K$+G$:PRINTG$;:NEXT:PRINT:FORK=1TO1000:NEXT 21550 IFK$<>D$(3)THENPRINT" [144]DIE CHANCE IST VERTAN !!!":GOTO40000 21560 PRINT" " 21570 PRINT" " 21580 PRINT"[145][145] DER KOENIG WIRD PLOETZLICH UNGEMEIN" 21590 PRINT" HILFSBEREIT UND GIBT DIR DEN RING":FORK=1TO6000:NEXT 21600 PRINT"[145][145] " 21610 PRINT" " 21620 LO=LO+4:AU=AU+4:RI=RI+1:IR=IR+4:GOTO20000 21700 PRINT" DER KOENIG IST WUETEND,DA DU ZURUECK-" 21710 PRINT" KEHRTEST OHNE DIE AUFGABE ZU LOESEN.":FORK=1TO6000:NEXT 21720 PRINT"[145][145] UEBER DEIN WEITERES SCHICKSAL WIRD " 21730 PRINT" DER [144]DAEMON ENTSCHEIDEN !!! ":GOTO40000 21800 IFL=2THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 21805 IF(HBAND1)<>1THEN40300 21810 IFL<>0THEN21980 21820 PRINT"BERICHTE MIR NUN,WELCHE AUSSAGE ZUTRIFFT"; 21830 PRINT" 1[146] - ERDE,-EINE KUGEL DIE SICH DREHT." 21840 PRINT" 2[146] - ERDE,-EINE SCHEIBE." 21850 PRINT" 3[146] - ERDE,-KUGEL, MITTELPUNKT DES ALLS." 21860 PRINT" 4[146] - ERDE,-EIN QUADRAT MIT A=20000 KM^2" 21870 PRINT"WIR SCHREIBEN DAS JAHR 1607, EIN GROSSER"; 21880 PRINT"AUGENBLICK. GIB DIE NUMMER AN: "; 21890 POKE198,0:WAIT198,1:GETG$:IF VAL(G$)<1 OR VAL(G$)>4 THEN21890 21900 PRINTG$:IFVAL(G$)=(PEEK(2050)-5) THEN E$="[147]":RI=RI+1:IR=IR+1:GOTO20000 21910 FORK=1TO2000:NEXT 21920 PRINT"[147]";:POKEVC+21,0 21930 PRINT"[144] DIE INQUISITION HAT EIN NEUES OPFER" 21940 PRINT" GEFUNDEN. DU WIRST DEIN ENDE AUF DEM" 21950 PRINT" SCHEITERHAUFEN FINDEN. NUR SO FINDEN" 21960 PRINT" KETZER IHRE GERECHTE STRAFE !!!":FORK=1TO2000:NEXT:GOTO 40000 21980 IFBE=3THENRI=RI+1:IR=IR+2:LO=LO+2:GOTO20000 21990 GOTO21700 22000 IFLEFT$(K$,9)<>"WEGWERFEN"THEN22500 22010 IFMID$(K$,10,1)="," THEN22030 22020 PRINT" SYNTAX ERROR":FORK=1TO1000:NEXT:PRINT"[145] ":GOTO20000 22030 K$=MID$(K$,11) 22040 F=8:FORK=0TO7:IFK$=C$(K)THENF=K:K=8 22050 NEXT:IFF<>8AND(HBAND2^F)<>2^FTHEN20620 22060 IFF<>8THENHA=HA-1:HB=HB-2^F:GOTO20000 22070 IFK$="EIMER"ANDEI=1THENHA=HA-1:EI=0:FO=0:GOTO20000 22080 IFK$="EIMER"THEN20620 22090 IFK$<>"RING"THEN22020 22100 IFIR=7ANDRI>0THEN22120 22110 PRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 22120 IFL(Y,X)<>8ANDL(Y-1,X)<>8ANDL(Y+1,X)<>8ANDL(Y,X-1)<>8ANDL(Y,X+1)<>8THEN22110 22130 F=0:IFY<19ANDX>20THENF=2:GOTO22160 22140 IFY<22ANDX<18THENF=1:GOTO22160 22150 F=4 22160 IFDDANDFTHEN22110 22170 RI=RI-1:DD=DD+F:IFDD=7THEN22200 22180 PRINT" DER FLUSS BEDANKT SICH BEI DIR.":FORK=1TO3000:NEXT 22190 PRINT"[145] ":GOTO20000 22200 IFEI=1THEN22260 22210 PRINT" DER FLUSS IST WUETEND, -DU NICHT DARAN" 22220 PRINT" GEDACHT EIN GEFAESS MITZUBRINGEN, UM" 22230 PRINT" WASSER ZUM DAEMON BRINGEN ZU KOENNEN." 22240 PRINT" [144]DER FLUSS KANN SEINEN ZORN NICHT ZU-" 22250 PRINT" RUECKHALTEN UND ERTRAENKT DICH !!!":FORK=1TO3000:NEXT:GOTO40000 22260 POKEVC+21,0:PRINT"[147] IM WASSER IST FOLGENDES ZU LESEN" 22270 FORK=1TO2000:NEXT:PRINT"[147]";CHR$(14):POKEVC+21,0 22280 PRINT"[196]IE [204]EGENDE,DIE DIR VERMUTLICH GELAEUFIG" 22290 PRINT"IST, IST BEREITS VOR 764 [202]AHREN VERFASST" 22300 PRINT"WORDEN.[211]EITDEM HAT DER [144][196] [193] [197] [205] [207] [206] SEINE" 22310 PRINT"[205]ACHT UM EIN [214]IELFACHES VERGROESSERT ..." 22320 PRINT"[197]R LAESST SICH ALSO NICHT MEHR SO LEICHT" 22330 PRINT"VERTREIBEN.[197]S IST SOGAR SO,DASS UNS KEIN" 22340 PRINT"[205]ITTEL BEKANNT IST IHN ZU BESEITIGEN ..." 22350 PRINT"[196]OCH HABEN WIR GEHOERT, DASS ES IN EINER" 22360 PRINT"DER [211]IEDLUNGEN EINE [218]EITREISE 764 [202]AHRE" 22370 PRINT"ZURUECK ZU KAUFEN GIBT. [196]IES SCHEINT DER" 22380 PRINT"EINZIGE [215]EG ZU SEIN.[199]EHE ALSO UND SUCHE!" 22390 PRINT"[214]IEL [199]LUECK !!!>>";:POKE198,0:WAIT198,1:GETG$ 22400 PRINT"[147][206]OCH EINS: [194]IST DU IN DER [218]EIT DER [211]AGE" 22410 PRINT" ANGEKOMMEN, DANN MUSST DU VERSUCHEN IN " 22420 PRINT" DEN [144][196] [213] [206] [203] [204] [197] [206] [212] [213] [210] [205] ZU KOMMEN " 22425 L(11,18)=9 22430 FORK=1TO8000:NEXT:PRINT"[147]";CHR$(142):GOTO20000 22500 IFK$<>"LIES,BUCH"THEN22700 22510 IF(HBAND2^7)<>2^7THEN20620 22520 PRINT"[147]";CHR$(14):POKEVC+21,0 22530 PRINT" [199][160][197][160][207][160][210][160][199][160][197][160][160][207][160][210][160][215][160][197][160][204][160][204] 1 9 8 4 " 22540 PRINT"[144][197]S WAR EIN KLARER, KALTER [212]AG IM [193]PRIL, " 22550 PRINT"UND DIE [213]HREN SCHLUGEN GERADE DREIZEHN, " 22560 PRINT"ALS [215]INSON [211]MITH, DAS [203]INN AN DIE [194]RUST " 22570 PRINT"GEPRESST, UM DEN RAUHEN [215]IND ... " 22580 FORK=1TO9999:NEXT:PRINT 22590 PRINT" ... NUN WAR ES GUT, WAR ALLES GUT, DER " 22600 PRINT"[203]AMPF WAR BEENDET. [197]R HATTE DEN [211]IEG " 22610 PRINT"UEBER SICH SELBST ERRUNGEN. [197]R LIEBTE " 22620 PRINT"DEN [199]ROSSEN [194]RUDER.":FORK=1TO9999:NEXT:PRINT"[147]";CHR$(142):GOTO20000 22700 IFK$<>"LIES,KOMPASS"THEN22800 22710 IF(HBAND2^5)<>2^5THEN20620 22720 PRINT" DER KOMPASS ZEIGT IN RICHTUNG NORDEN !":FORK=1TO3000:NEXT 22730 PRINT"[145] ":GOTO20000 22800 IFLEFT$(K$,6)<>"FUELLE"THEN22900 22810 IFMID$(K$,8)<>"EIMER"THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 22820 IFL(Y,X)<>8ANDL(Y-1,X)<>8ANDL(Y+1,X)<>8ANDL(Y,X+1)<>8ANDL(Y,X-1)<>8THEN22110 22825 FO=1 22830 PRINT" DER EIMER IST VOLL.":FORK=1TO1000:NEXT:PRINT"[145] ":GOTO20000 22900 F=8:FORK=0TO7:IFK$=D$(K)AND(ZBAND2^K)THENF=K:K=8:GOTO22920 22910 IFK$=D$(K)THENK=8:NEXT:GOTO20620 22920 NEXT:IFF=8THEN23000 22930 IFF>1ANDF<>3THEN4040 22940 IFK$="SWIM"THENZB=ZB+2^F 22950 ZB=ZB-2^F:IFF=1THEN4200 22952 PRINT" DER ZAUBERSPRUCH ZEIGT KEINE WIRKUNG.":FORK=1TO3000:NEXT 22954 PRINT"[145] ":GOTO 20000 23000 IFK$<>"ABWEHREN"THEN23100 23001 IFAT=0THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 23003 C=0:IFL(Y,X)=0AND(HBAND16)=16THENC=C+.5:GOTO23006 23004 IF(HBAND8)=8THENC=C+.5 23005 IF(HBAND4)=4THENC=C+1 23006 IF(HBAND2)=2THENC=C+1 23007 F=RND(0):IFF>.3+C*.1THENC=0 23008 C=1:KR=KR-INT(5*F) 23010 IFU=0THEN23050 23020 PRINT" DIE JAEGER HABEN DICH NUR UMZINGELT." 23025 PRINT" ES IST ALSO NICHTS ABZUWEHREN." 23030 FORK=1TO6000:NEXT:PRINT"[145][145] " 23040 PRINT" ":GOTO20000 23050 IFC=0THEN20000 23060 AT=0:GE=GE+INT(20*F)+1:KR=KR+INT(2.5*F) 23070 PRINT" ERFOLGREICH ABGEWEHRT,";INT(20*F)+1;"GOLDSTUECKE":FORK=1TO2000:NEXT 23080 PRINT"[145] ":GOSUB40440:GOTO20000 23100 IFK$<>"ANGREIFEN"THEN23200 23110 IFL(Y,X)=0AND(HBAND16)=16THENC=1:GOTO23140 23120 IF(HBAND4)=4THENC=1 23130 IF(HBAND8)=8THENC=C+1 23140 IF(HBAND2)=2THENC=C+1 23150 F=1:IFRND(0)>(.3+C*.1)THENF=0 23160 C=F*(INT(10*RND(0)+1)):KR=KR-0^F*HA-1:IFF=0THEN20000 23165 AT=0:U=0 23170 PRINT" ERFOLGREICH ABGESCHLOSSEN.":PRINTC;"GOLDSTUECKE":GE=GE+C 23175 FORK=1TO6000:NEXT 23176 PRINT"[145][145] " 23180 PRINT" ":GOSUB40440:GOTO20000 23200 IFK$<>"SAVE"THEN24000 23210 IFDD=0THEN23240 23220 PRINT" NICHT MOEGLICH. DU BIST SCHON IN DER" 23230 PRINT" SCHLUSSPHASE DES SPIELS !":FORK=1TO5000:NEXT:E$="[147]":GOTO20000 23240 POKEVC+21,0:T$=TI$:GOSUB2610 23250 IFTT$="K"THENOPEN1,1,2,K$:GOTO23260 23255 K$="@:"+K$+",S,W":OPEN1,8,2,K$ 23260 PRINT#1,X:PRINT#1,Y:PRINT#1,VE:PRINT#1,KR:PRINT#1,GE:PRINT#1,RI:PRINT#1,IR 23270 PRINT#1,T$:PRINT#1,ZB:PRINT#1,HB:PRINT#1,HA:PRINT#1,EI:PRINT#1,FO 23280 PRINT#1,AU:PRINT#1,LO:PRINT#1,AN:PRINT#1,BE:PRINT#1,K$ 23290 CLOSE1:PRINT:PRINT"[145] " 23295 PRINT" ":E$="[147]"+CHR$(142):GOTO20000 23395 PRINT" ":GOTO20000 24000 PRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 25000 POKEVC+21,0:IFTD=1THENTX=0:GOTO25300 25012 PRINTCHR$(14);"[147] [196]U HAST DEN [144][196] [213] [206] [203] [204] [197] [206] [212] [213] [210] [205] ":POKE198,0 25014 PRINT" BETRETEN. [200]IER GELTEN ANDERE [199]ESETZE " 25016 PRINT" ALS AUSSERHALB, DENN ES HERRSCHT DER " 25018 PRINT" [144][196]AEMON. [206]IEMAND AUSSER [144]IHM DARF SOG. " 25020 PRINT" [218]AUBERSPRUECHE VERWENDEN, - VERGESSE " 25022 PRINT" DEINE [218]AUBERSPRUECHE ODER DU BIST AM " 25024 PRINT" [197]NDE DEINER [210]EISE ANGELANGT.[194]EFEHLE: " 25026 PRINT" [206][201][205][205],[215][197][199][215][197][210][198][197][206],[207][197][198][198][206][197],[211][195][200][204][201][197][211][211][197],[204][201][211][212] " 25028 PRINT" [204][197][197][210][197][206],[196][210][213][197][195][203][197][206],[214][197][210][199][197][211][211][197][206]. [193]LLE [194]EF. " 25030 PRINT" BIS AUF [204][201][211][212] / [214][197][210][199][197][211][211][197][206] MUESSEN VON " 25032 PRINT" ";CHR$(34);",[196]ING";CHR$(34);" GEFOLGT WERDEN.":PRINT 25034 PRINT" [144][196]AEMONEN LIEBEN ES [199]OTT NAHE ZU SEIN[157][157]>>"; 25074 DIMT(3,4,4):TD=1:FORF=0TO4:FORC=0TO4:READA:FORK=0TO3:T(K,F,C)=A:NEXTK,C,F 25075 DATA 24,48,56,48,40 25076 DATA 12,24,52,40,12 25077 DATA 28,44,16,28,44 25078 DATA 12,20,56,36,12 25079 DATA 20,48,52,48,36 25080 T(1,2,2)=4:T(2,2,2)=32:T(3,2,2)=8:T(1,2,0)=60 25100 T(0,2,3)=60:T(3,3,2)=60:T(2,2,1)=60:T(1,1,2)=60:KI=INT(3*RND(0)+1) 25230 GOSUB25290:T(3,TY,TX)=T(3,TY,TX)+1:T(2,TY,TX)=T(2,TY,TX)+2 25240 GOSUB25290:T(2,TY,TX)=T(2,TY,TX)+1:T(1,TY,TX)=T(1,TY,TX)+2 25245 GOSUB25290:T(1,TY,TX)=T(1,TY,TX)+1:T(0,TY,TX)=T(0,TY,TX)+2 25250 GOSUB25290:T(0,TY,TX)=T(0,TY,TX)+64 25260 GOSUB25290:T(1,TY,TX)=T(1,TY,TX)+64 25270 GOSUB25290:T(2,TY,TX)=T(2,TY,TX)+64 25280 GOSUB25290:T(3,TY,TX)=T(3,TY,TX)+64:S=1:TY=2:TX=0:WAIT198,1:GOTO25300 25290 TX=INT(5*RND(0)):TY=INT(5*RND(0)):RETURN 25300 GETG$:PRINT"[147]";CHR$(142):GOTO25330 25320 FORK=1TO4000:NEXT 25325 IFTX<0THENPRINT"[147]":GOTO20000 25330 R$="":P=T(S,TY,TX):POKEVC+17,11:GOSUB 3530 25335 IFS=0ANDTX=0ANDTY=0THENPRINT"[209][144]" 25340 IF(PAND64)<>64THEN25400 25350 POKE214,14:PRINT:PRINT,"[175][175][175][175][175][175]":PRINT,"[206] [206][165]" 25360 PRINT,"[157][206] [206] [165]":PRINT,"[157][207][183][183][183][183][208] [165]":PRINT,"[157][165] [167] [206]" 25370 PRINT,"[157][204][175][175][175][175][186][206]" 25380 IF(PAND128)=128THENPOKE214,15:PRINT:PRINT,"[165]":PRINT,"[165]" 25400 IF(S<>3ORTX<>2ORTY<>2)AND(S=1ORZB=0)THEN25430 25410 POKEVC+17,27:PRINT:PRINT"DER DAEMON HAT DICH WIE EINEN WURM ZER-" 25420 PRINT"TRETEN...";:FORK=1TO6000:NEXT:GOTO40000 25430 IFTC=0THEN25470 25440 IFVAL(TI$)<31THEN25600 25450 POKEVC+17,27:POKE214,21:PRINT:PRINT"DAS GEWOELBE HAT DICH" 25460 PRINT" UNTER SICH BEGRABEN...";:FORK=1TO6000:NEXT:GOTO40000 25470 IFHO=0OROH=1ORS<>3ORTY<>3ORTX<>2THEN25600 25480 POKEVC+17,27:PRINTCHR$(34);"PASST MIR GUT AUF,DASS DER FREMDE EIN-" 25490 PRINT"DRINGLING NICHT AUF DEN[144] KNOPF DRUECKT," 25500 PRINT"DAS WAERE UNSER ALLER ENDE...";CHR$(34):OH=1 25510 FORK=1TO8000:NEXT:GOTO25320 25600 POKE214,21:PRINT:PRINT"";MID$(R$,2);"/";:L=11:POKEVC+17,27:GOSUB20410 25610 PRINT"[145][145][145][145]" 25630 IFK$="N"AND(PAND4)=4THENTY=TY-1:GOTO25330 25640 IFK$="S"AND(PAND8)=8THENTY=TY+1:GOTO25330 25650 IFK$="O"AND(PAND16)=16THENTX=TX+1:GOTO25330 25660 IFK$="W"AND(PAND32)=32THENTX=TX-1:GOTO25325 25670 IFK$="R"AND(PAND1)=1THENS=S-1:GOTO25330 25680 IFK$="H"AND(PAND2)=2THENS=S+1:GOTO25330 25690 IFK$<>"OEFFNE,KISTE"THEN25740 25695 IF(PAND64)<>64THEN25740 25700 IF(PAND128)=128THENPRINT"DIE KISTE IST BEREITS OFFEN.":GOTO25320 25710 POKE214,15:PRINT:PRINT,"[165]":PRINT,"[165]":POKE214,22:PRINT:T(S,TY,TX)=P+128 25720 IFS<>KIORHO=1THENPRINT"[145]DIE KISTE IST LEER.":GOTO25320 25730 PRINT"[145]IN DER KISTE LIEGT EIN STUECK PERGAMENT":GOTO25320 25740 IFK$<>"NIMM,PERGAMENT"THEN25760 25745 IF(PAND128)=0OR(PAND64)=0ORHO=1ORS<>KITHEN25760 25750 PRINT" AUF DEM PERGAMENT STEHT EIN ZAUBERWORT: HORCH";:HO=1:GOTO25320 25760 IFK$="VERGESSEN"THENZB=0:HO=0:PRINT"DU HAST ALLE SPRUECHE VERGESSEN":GOTO25320 25770 IFK$="SCHLIESSE,KISTE"AND(PAND128)THENT(S,TY,TX)=P-128:GOTO25320 25780 IFK$<>"LIST"THEN25860 25790 T$=TI$:PRINT"[147] LISTE UEBER HAB UND GUT:" 25800 FORK=0TO7:IF(HBAND2^7)THENPRINT" ";C$(K) 25810 NEXT:IFEI=1THENPRINT" EIMER" 25820 IFHO=1THENPRINT" PERGAMENT" 25830 PRINT"":FORK=0TO7:IF(ZBAND2^K)THENPRINT,,D$(K) 25840 NEXT:IFHO=1THENPRINT,,"HORCH" 25850 PRINT" BITTE DRUECKE EINE TASTE" 25855 POKE198,0:WAIT198,1:TI$=T$:GOTO25330 25860 IFLEFT$(K$,10)<>"WEGWERFEN,"THEN25900 25870 PRINT"DU WOLLTEST EIGENTLICH NUR EINEN GEGEN-":ZB=0:HB=0 25880 PRINT"STAND WEGWERFEN,BIST ABER SO GUT DRAUF" 25890 PRINT"UND WIRFST ALLES WEG;-ES VERSCHWINDET.":FORK=1TO6000:NEXT:GOTO25320 25900 IFK$<>"LEEREN,EIMER"THEN25970 25905 IFFO=0THEN26050 25910 EI=0:PRINT"BEIM AUSLEEREN DES EIMERS GLEITET ER DIR"; 25920 PRINT"PLOETZLICH AUS DEN HAENDEN UND FAELLT" 25930 PRINT"SCHEPPERND ZU BODEN...":FORK=1TO6000:NEXT 25940 PRINT"[145][145][145]SOFORT ERSCHEINT DER DAEMON,UM DICH ZU "; 25950 PRINT"VERNICHTEN.ER BEKOMMT JEDOCH RASCH NASSE"; 25960 PRINT"FUESSE UND VERSCHWINDET WIMMERND.":FORK=1TO6000:NEXT:GOTO25330 25970 IFK$<>"DRUECKEN,KNOPF"THEN26050 25980 IFS<>0ORTX<>0ORTY<>0THENPRINT"HIER IST KEIN KNOPF.":GOTO25320 26000 IFEI=1OROH=0THENPRINT"ER LAESST SICH NICHT DRUECKEN.":GOTO25320 26010 PRINT"DAS GESAMTE GEWOLBE BEBT PLOETZLICH UND" 26020 PRINT"DU SPUERST,DASS ES IN EINER HALBEN MIN." 26030 PRINT"[145]EINSTUERZEN WIRD...RENN UM DEIN LEBEN..."; 26040 FORK=1TO7000:NEXT:T0$=TI$:TI$="000000":TC=1:L(20,20)=0:GOTO25330 26050 PRINT"NICHT MOEGLICH!":FORK=1TO1000:NEXT:GOTO25330 26100 PRINT 26110 PRINT" [166][166][166][166][166] [166] [166] [166][166][166][166] [166][166][166][166] [166] [166] [166][166][166]" 26120 PRINT" [166] [166] [166] [166] [166] [166][166] [166] [166] [166]" 26130 PRINT" [166] [166] [166] [166] [151]QR[146] [166] [166] [166] [166] [166] [166]" 26140 PRINT" [166] [166][166][166][166] [166][166][166] [151]ST[146] [166][166][166] [166] [166] [166] [166] [166]" 26150 PRINT" [166] [166] [166] [166] [166] [166] [166] [166] [166] [166]" 26160 PRINT" [166] [166] [166] [166] [166] [166] [166][166] [166] [166]" 26170 PRINT" [166] [166] [166] [166][166][166][166] [166][166][166][166] [166] [166] [166][166][166]" 26180 PRINT"";LEFT$(T0$,2);":";MID$(T0$,3,2); 26190 PRINT":";RIGHT$(T0$,2);" ZEIT[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]DRUECKE EINE TASTE" 26200 POKE198,0:WAIT198,1:RUN40270 30000 PRINT" ALS NICHTSCHWIMMER IST ES NICHT RATSAM EIN BAD IM FLUSS ZU NEHMEN." 30010 PRINT" [144]DU BIST ERTRUNKEN.":GOTO 40000 40000 FORK=1TO8000:NEXT:POKEVC+21,0 40020 PRINT"[144][147]":IFKR<=0THENPRINT" DU BIST AN ENTKRAEFTUNG GESTORBEN !!!" 40050 PRINTTAB(19)"[207][183][208]" 40060 PRINTTAB(18)"[207] [219] [208]" 40070 PRINTTAB(17)"[207] [221] [208]" 40080 PRINTTAB(16)"[207] [208]" 40090 PRINTTAB(16)"[165]ER RUHE[167]" 40100 PRINTTAB(16)"[165] [167]" 40110 PRINTTAB(16)"[165] IN [167]" 40120 PRINTTAB(16)"[165] [167]" 40130 PRINTTAB(16)"[165]FRIEDEN[167]" 40140 PRINTTAB(16)"[165] [167]" 40150 PRINTTAB(16)"[165] [167]" 40160 PRINTTAB(16)"[165]MDCVIII[167]" 40170 PRINTTAB(16)"[165] [167]" 40175 PRINTTAB(15)"[172]UUUUUUUUU[146][187]" 40180 PRINTTAB(14)"[172]UUUUUUUUUUU[146][187]" 40190 PRINTTAB(13)"[172]UUUUUUUUUUUUU[146][187]" 40200 PRINTTAB(12)"[172]UUUUUUUUUUUUUUU[146][187]" 40210 PRINTTAB(12)"UUUUUUUUUUUUUUUUU" 40220 PRINTTAB(12)"UUUUUUUUUUUUUUUUU" 40230 PRINT" MOECHTEST DU NOCH MAL SPIELEN (J/N)?-"; 40240 POKE198,0:WAIT198,1:GETG$:IFG$<>"J"ANDG$<>"N"THEN40240 40250 PRINTG$:IFG$="N"THENSYS 64738 40260 RUN40270 40270 FORK=1TO(48+36*8):READA:NEXT:GOTO600 40300 PRINT" ICH SEHE, DU HAST KEIN BOOT BEI DIR." 40310 PRINT" DARAUS SCHLIESSE ICH, DASS DU DEINE" 40320 PRINT" AUFGABE NOCH NICHT ERFUELLT HAST. DOCH" 40330 PRINT" ICH LASSE GNADE VOR RECHT ERGEHEN UND" 40340 PRINT" VERLANGE ZUR STRAFE LEDIGLICH DIE 1/2" 40350 PRINT" DEINER VERPFLEGUNG";:FORK=1TO12000:NEXT:VE=INT(.5*VE):E$="[147]":GOTO20000 40360 PRINT:PRINT"NICHT MOEGLICH ! ":FORK=1TO1000:NEXT:RETURN 40400 IF F<>0 THEN RETURN 40410 PRINT:PRINT" EIN BEWOHNER DER SIEDLUNG KOMMT VORBEI" 40420 PRINT" UND HETZT UEBER DIE ";CHR$(34);"NUSS-SCHALE";CHR$(34);", DIE" 40430 PRINT" DU GERADE ERWORBEN HAST !!!":FORK=1TO10000:NEXT:RETURN 40440 PRINT"",,"[157][157][157] " 40450 PRINT,,"[157][157][157] ":RETURN 40500 IFGE<200THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000 40510 POKEVC+21,0:PRINT"[147]" 40520 PRINT" DER KOENIG HAT, NACHDEM ER KEINEN RING " 40530 PRINT" MEHR HAT,SEINE KRONE ABGELEGT UND SICH " 40540 PRINT" AUF DIE PRODUKTION VON ZEIT-MASCHIENEN " 40550 PRINT" KONZENTRIERT. ER VERLANGT FUER EINE " 40560 PRINT" REISE 200 GOLDSTUECKE, WOBEI ES KEINE " 40570 PRINT" ROLLE SPIELT WIE WEIT SIE GEHT ! " 40580 PRINT" NIMMST DU DAS ANGEBOT AN (J/N)?-"; 40590 POKE198,0:WAIT198,1:GETG$:IFG$<>"N"ANDG$<>"J"THEN40590 40600 PRINTG$:IFG$="N"THENE$="[147]":FORK=1TO1000:NEXT:GOTO20000 40605 GE=GE-200 40610 PRINT" WIEVIEL JAHRE MOECHTEST DU ZURUECK- REISEN ?-";:K$="":FORK=1TO3 40620 POKE198,0:WAIT198,1:GETG$:IFG$<>"0"ANDVAL(G$)=0THEN40620 40630 PRINTG$;:K$=K$+G$:NEXT:IFK$="764"THENT=1:L(11,18)=7:FORK=1TO2000:NEXT:E$="[147]":GOTO20000 40640 PRINT"[144] DIE ZAHL WAR FALSCH, -DU HAST VERSAGT!":GOTO40000